home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga News 96
/
Amiga News 96.iso
/
dpat
/
dpat129
/
amighpv2a
/
examples
/
beep.s
< prev
next >
Wrap
Text File
|
1977-12-31
|
493b
|
44 lines
include entries.i
con(5) DOCODE
Debut con(5) Fin-Debut
duree equ $800F5
freq equ $800FA
GOSBVL $0679B
LCHEX $003E8
D0=(5) $800F5
DAT0=C A
LCHEX $00000
D0=(5) $800FA
DAT0=C A
LAB0
LCHEX $003E8
D0=(5) $800FA
A=DAT0 A
?C>A A
GOYES LAB1
GOTO LAB2
LAB1
D0=(5) $800FA
C=DAT0 A
D=C A
D0=(5) $800F5
C=DAT0 A
GOSBVL $017A6
GOSBVL $067D2
LAHEX $800F5
D0=A
LCHEX $000C8
D0=(5) $800FA
A=DAT0 A
C=C+A A
DAT0=C A
GOTO LAB0
LAB2
GOSBVL $067D2
A=DAT0 A
D0=D0+ 5
PC=(A)
Fin